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Peak Rate Shaper 
Read Current Time 
For all "RED" flows 
{ 

DeltaT=Current Time - Previous Time 
Flow Timer=Flow Timer - DeltaT 

If Flow Timer <=0 { 

Change flow to a "GREEN" flow 

} 

} 

Previous Time = Current Time 

For All "GREEN" flows having packets 
{ 

Assign packet from flow for transmit 
Change flow to a "RED" flow 

Flow timer=packet size/r + flow interaction parameter + empirical parameter 
} 
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